home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / beam3.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  728b  |  43 lines
  1. /* simple beam */
  2. options results
  3.  
  4. if ~show('ports', "AMI2D") then do
  5.     address command 'run ami2d:bin/ami2d'
  6.     do while ~show('ports', "AMI2D")
  7.     end
  8. end
  9.  
  10. address ami2d
  11.  
  12. call 'ami2d:rexx/pstress'
  13.  
  14. h = 0.5
  15. L = 10.0
  16. E1 = 10.0e6
  17. nu1 = 0.3000
  18. adt1 = 5.0e-5*100
  19. E2 = 10.0e6
  20. nu2 = 0.3000
  21. adt2 = 5.0e-5*200
  22.  
  23. 'reset'
  24. 'iso(1,'E1','nu1',struct,'adt1')'
  25. 'iso(2,'E2','nu2',struct,'adt2')'
  26. do i=0 to 20
  27.     xx = L*i/20
  28.     'node('i + 1','xx',0.0)'
  29.     'node('i + 31','xx','h')'
  30.     'node('i + 61','xx','2*h')'
  31. end
  32. do i=0 to 19
  33.     'quad4('i + 1',1,'i + 1','i + 2','i + 32','i + 31')'
  34.     'quad4('i + 21',2,'i + 31','i + 32','i + 62','i + 61')'
  35. end
  36. 'dispx(1,0.0)'
  37. 'dispy(1,0.0)'
  38. 'dispx(31,0.0)'
  39. 'dispx(61,0.0)'
  40. 'check'
  41. say result
  42. exit
  43.